home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / a / app387.1 < prev    next >
Encoding:
Text File  |  1990-12-04  |  34.3 KB  |  811 lines
  1. REMFIRST LINE OF APP387.1-- KEEP REM LINES
  2. REMSAVE AS "APP387.1" [AS RECEIVED, WITHOUT REMOVING UUCP HEADERS]
  3. REM811 LINES,35159 BYTES '90 OCT 17
  4. REM***WARNING APP387.2 IS DELETED BY INSTALL
  5. REM
  6. REMTHIS FILE REQUIRES ONLY <RETURNS> AFTER EACH LINE (THE FORM IS 8D HEX)
  7. REMAND DOS 3.3 TEXT BYTES(HIGH BIT ON)
  8. REMMANY SYSTEMS WILL ADD A SPACE BEFORE THE CARRIAGE RETURN.
  9. REMYOU MUST REMOVE THE SPACE BEFORE IT WILL WORK.
  10. REMALSO FIX THE LINE AT THE VERY END OF PART 2 IF NECESSARY.
  11. REM
  12. REM
  13. REM
  14. REM
  15. REM
  16. REMCOPY DOWNLOADS 'APP387.1' AND 'APP387.2' TO MASTER DISK
  17. REMBOOT THE DISK THEN:
  18. REM EXEC APP387.1,R25<RETURN>       [YES, THAT'S "R25"]
  19. REM
  20. REMTO REINSTALL:
  21. REM BLOAD KERMIT387<RETURN>
  22. REM EXEC APP387.INSTALL<RETURN>
  23. REMRemember:fix size of bin save
  24. REM pgm must fit between 4096 & lomem
  25. REM test is made at 131 for correct load of kermit
  26. REM test is made at 141 for lomem token & 3 the first digit of lomem
  27. REMKEEP REM LINES
  28. REM
  29. CLOSE
  30. NEW
  31. 75 IF PEEK(-8192)=32 THEN GOTO 100:REMINTEGER?
  32. 95 END
  33. 100 ? "SORRY, STOPPING HERE"
  34. 110 ? "APPLESOFT REQUIRED"
  35. 120 POKE-21837,0:CALL-23830:REMEXEC FLAG OFF AND CLOSE
  36. 130 END
  37. RUN
  38. TEXT:SPEED=100
  39. ?"  (ALL THOSE ']' PROMPTS ARE NORMAL)"
  40. ?"":SPEED=255
  41. NEW
  42. 75 IF PEEK(48896)=76 OR PEEK(978)><157 GOTO 100:REMPRODOS OR MOVED DOS?
  43. 95 END
  44. 100 D$=CHR$(4):G$=CHR$(7):M$=CHR$(13)
  45. 110 F$="T":FE$=D$+"EXEC "+F$:FD$="DELETE "+F$
  46. 120 EE$=G$+"SORRY, STOPPING HERE"+M$+M$+G$
  47. 130 ? D$;"OPEN ";F$:? D$;"WRITE ";F$:? "CLOSE"
  48. 140 IF PEEK(978)=190 THEN ? FD$
  49. 150 ? "END":? D$;"CLOSE ";F$
  50. 160 ? EE$;"NORMAL DOS 3.3 REQUIRED":? FE$:END
  51. RUN
  52. CLOSE
  53. CALL-151
  54. 0300:48 98 48 8A 48 20 F7 AF A9 00 85 40 85 41 A0 C8
  55. 0310:18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6 41
  56. 0320:68 18 90 F0 88 D0 E9 68 AA 68 A8 68 60 00 00 00
  57. 0330:68 A8 68 A6 DF 9A 48 98 48 60 00
  58. 3D0G
  59. FP
  60. 10D$=CHR$(4):G$=CHR$(7):M$=CHR$(13):Q$=CHR$(34):VN$="387":V$="APP"+VN$+"."
  61. 20KR$="KERMIT"+VN$:C0$="INSTALL":C1$="SS":C2$="SV":C3$="MM":C4$="AC":FS=65
  62. 23C5$="CC":C6$="GS":C7$="CP":C8$="CT":CF$="INIT":H$="KERMIT.":CH$="HELP"
  63. 30EE$=G$+M$+"SORRY, STOPPING HERE"+M$+G$:C9$="AE"
  64. 110ONERRGOTO1000
  65. 112TL=3:FORT=2TOTL:T$(T)=STR$(T):NEXTT:T=2:E=0
  66. 115L$(0)="HOWDY--"
  67. 117L$(1)=""
  68. 119L$(2)="GONNA MAKE YOU A DOS KERMIT OF YOUR OWN"
  69. 121L$(3)="BUT FIRST,"
  70. 123L$(4)="GONNA CHECK TO SEE IF WE'VE GOT ALL THE"
  71. 125L$(5)="FILE NAMES SPELLED AS EXPECTED.  AND,"
  72. 127L$(6)="IF THERE'S ENOUGH SPACE ON THIS DISK."
  73. 130TEXT:NORMAL:HOME
  74. 135FORV=0TO6:FORH=40TO1STEP-3:VTABV+1:INVERSE:?SPC(40):?:VTABV+1:NORMAL
  75. 137?LEFT$(L$(V),41-H):NEXT:NEXT
  76. 140?D$;"VERIFY ";V$;T
  77. 150T=T+1:IFT<TLGOTO140
  78. 300CALL768:SC=PEEK(64)+PEEK(65)*256
  79. 305IFSC<FSTHENE=E+1:E$(E)="NOT ENOUGH FREE SPACE ON THIS DISK"
  80. 350IFE>0GOTO3000
  81. 400?"LOOKIN GOOD":?:?"GO DO SOMETHING INTERESTING"
  82. 410?"FOR A FEW  MINUTES":?:?"WILL 'BEEP' WHEN YOU'RE NEEDED":?
  83. 420POKE216,0:FORI=1TO2000:NEXTI:END
  84. 1000IFPEEK(222)><6GOTO9000
  85. 1010E=E+1:E$(E)="CAN'T FIND "+V$+T$(T):T=T+1:IFT<TLTHENRESUME
  86. 1020GOTO300
  87. 3000?EE$:?" PROBLEMS TO FIX:":?
  88. 3010POKE216,0:FORI=1TOE:?E$(I):NEXTI
  89. 4000POKE-21837,0:?D$;"CLOSE":END
  90. 8000REMLAST LINES OF CFIG'S (FOLLOWING)
  91. 8010?"3D0G"
  92. 8020?EX$
  93. 8085?"END"
  94. 8090?CL$
  95. 8095END
  96. 8500REMASSIGN STRINGS FOR CFIG'S (FOLLOWING)
  97. 8550CV$=V$+C$:O$=D$+"OPEN"+CV$:W$=D$+"WRITE"+CV$:CL$=D$+"CLOSE"+CV$
  98. 8555EX$="EXEC"+V$+C0$+",R1"
  99. 8595RETURN
  100. 9000 REMONERR ERROR ROUTINE
  101. 9005CALL816
  102. 9010PE=PEEK(222):POKE216,0:?EE$
  103. 9020?"IF CONFUSED, ASK FOR HELP":?"-- YOU GOT DOS ERROR #";PE
  104. 9999POKE-21837,0:?D$;"CLOSE":END:REMEXEC OFF AND CLOSE
  105. RUN
  106. CLOSE
  107. DEL40,7999
  108. 50ONERRGOTO9000
  109. 99GOSUB8500:?O$:?W$
  110. REMSTART OF CFIG'S
  111. 98C$=C1$
  112. 103?"REM1ST LINE OF ";V$;C1$;"--KEEP REM LINES"
  113. 114?"CLOSE"
  114. 116?"CALL -151"
  115. 117?"1005:09 7F"
  116. 118?"100C:FD 8B"
  117. 119?"1020:4C ED 7F 4C 69 81 4C EE 80 4C FF 80 4C 1A 81 4C 31 81"
  118. 120?"7F00:00 00 00 00 00 00 00 00 00 D3 D3 C3 A0 D6 B1 AE B1 B5"
  119. 121?"7F12:00 C3 CF CD A0 D2 D4 CE A0 C1 D3 CD A0 D4 CF CF"
  120. 122?"7F22:A0 CC CF D7 00 3C AD A0 C2 C1 C4 A0 C3 CF CD A0 C3 CD"
  121. 123?"7F34:C4 00 68 AA 6C 04 7F 8A 48 AD 89 C0 10 F4 29 08"
  122. 124?"7F44:D0 52 2C 0B 10 10 2B 70 26 AD 07 7F F0 0C AD 06 7F"
  123. 125?"7F55:D0 1F A9 13 8D 06 7F D0 0F AD 06 7F F0 13 A9 00"
  124. 126?"7F65:8D 07 7F 8D 06 7F A9 11 20 4F 10 8D 88 C0 4C DE 7F"
  125. 127?"7F76:AD 02 7F CD 03 7F F0 14 EE 03 7F CD 03 7F F0 0C"
  126. 128?"7F86:AE 03 7F BD FD 8A 8D 88 C0 4C DE 7F 20 E3 7F 4C DE 7F"
  127. 129?"7F98:AD 88 C0 AE 01 7F 9D FD 81 2C 0B 10 10 26 29 7F"
  128. 130?"7FA8:C9 11 D0 0E A9 BF 2D 0B 10 8D 0B 10 20 E9 7F 4C DE 7F"
  129. 131?"7FBA:C9 13 D0 0E A9 40 0D 0B 10 8D 0B 10 20 E9 7F 4C DE 7F"
  130. 132?"7FCC:EE 01 7F D0 0D AE A0 7F E8 E0 8A D0 02 A2 81 8E A0 7F"
  131. 133?"7FDE:68 AA A5 45 40 A9 01 8D 8A C0 60 A9 05 D0 F8 78"
  132. 134?"7FEE:AD 05 7F D0 25 AD FE 03 8D 04 7F AD FF 03 8D 05 7F"
  133. 135?"7FFF:A9 7F CD 0A 10 F0 04 90 09 B0 0E A9 00 CD 09 10"
  134. 136?"800F:B0 07 A2 13 A0 7F 20 82 81 AD 08 10 F0 0C 58 60"
  135. 137?"801F:A9 60 8D E9 7F 8D E3 7F D0 09 AD C0 FB F0 F1 C9 E0"
  136. 138?"8030:D0 5B AD E2 7F 8D DE 7F A9 3D 8D FE 03 A9 7F 8D FF 03"
  137. 139?"8042:A2 00 BD 38 7F 9D 36 7F E8 E0 03 D0 F5 A2 00 2C 11 C0"
  138. 140?"8054:30 02 A2 08 2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0"
  139. 141?"8065:DA AD 16 C0 0A A0 01 B9 FE FF 8D 09 C0 99 FE FF"
  140. 142?"8075:8D 08 C0 99 FE FF 88 10 EE 90 03 8D 09 C0 FA 3C 81 C0"
  141. 143?"8087:3C 81 C0 4C 97 80 A9 3B 8D FE 03 A9 7F 8D FF 03"
  142. 144?"8097:A9 00 8D 00 7F 8D 01 7F 8D 02 7F 8D 03 7F A9 81"
  143. 145?"80A7:8D A0 7F 8D 05 81 AE 07 10 8E 08 10 18 A9 89 6D 07 10"
  144. 146?"80B9:8D 3E 7F 8D 54 81 18 A9 88 6D 07 10 8D 8D 7F 8D 99 7F"
  145. 147?"80CB:8D 71 7F 8D 61 81 8D 27 81 A9 8A 18 6D 07 10 8D E6 7F"
  146. 148?"80DD:A9 05 9D 8A C0 A9 18 29 F0 0D 03 10 9D 8B C0 58"
  147. 149?"80ED:60 78 AD 00 7F CD 01 7F D0 06 AD A0 7F CD 05 81"
  148. 150?"80FD:58 60 78 AE 00 7F BD FD 81 EE 00 7F D0 0D AC 05 81"
  149. 151?"810E:C8 C0 8A D0 02 A0 81 8C 05 81 58 60 78 AE 02 7F"
  150. 152?"811E:9D FD 8A EC 03 7F D0 06 8D 88 C0 20 E9 7F EE 02 7F"
  151. 153?"812F:58 60 78 AD 05 7F F0 1A AD 04 7F 8D FE 03 AD 05 7F"
  152. 154?"8140:8D FF 03 A9 00 8D 05 7F AE 07 10 9D 89 C0 9D 8A C0"
  153. 155?"8151:60 AA AD 89 C0 29 10 F0 0E 8A 29 7F 20 4F 10 8D 88 C0"
  154. 156?"8163:20 E9 7F A9 01 60 F0 C6 C9 0C F0 69 C9 0B F0 54"
  155. 157?"8173:C9 91 F0 14 C9 93 F0 30 20 DA FD A2 27 A0 7F 20 43 10"
  156. 158?"8185:20 49 10 A9 00 60 78 20 52 81 F0 0C A9 00 8D 07 7F"
  157. 159?"8196:8D 06 7F A9 01 58 60 A9 00 8D 07 7F 58 AD 06 7F"
  158. 160?"81A6:D0 FB A9 01 60 78 20 52 81 F0 0A A9 01 8D 06 7F"
  159. 161?"81B6:8D 07 7F 58 60 A9 01 8D 07 7F 58 AD 06 7F F0 FB"
  160. 162?"81C6:60 AE 07 10 78 BD 8B C0 29 F0 0D 03 10 9D 8B C0"
  161. 163?"81D6:58 60 78 AC 07 10 B9 8A C0 09 0C 99 8A C0 A9 E9"
  162. 164?"81E6:8D 08 7F AD 0E 10 20 40 10 CE 08 7F D0 F5 A9 05"
  163. 165?"81F6:99 8A C0 58 A9 01 60"
  164. RUN
  165. DEL 100,7999
  166. 98C$=C2$
  167. 103?"REM1ST LINE OF ";V$;C2$;"--KEEP REM LINES"
  168. 114?"CLOSE"
  169. 116?"CALL -151"
  170. 117?"1005:05 7F"
  171. 118?"100C:99 82"
  172. 119?"1020:4C 53 7F 4C 42 80 4C 9D 7F 4C FD 7F 4C 07 80 4C 33 80"
  173. 120?"7F00:00 00 00 00 00 CD C9 C3 D2 CF D4 C5 CB A0 D3 D6 AD"
  174. 121?"7F11:B6 B2 B2 A0 D6 B1 AE B8 00 AA AA AA AA AA C5 D2 D2 CF"
  175. 122?"7F23:D2 AA AA AA AA AA A0 C3 CF CD A0 D2 CF D5 D4 C9 CE C5"
  176. 123?"7F35:D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0 CC CF"
  177. 124?"7F47:D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 A9 7F CD 0A 10"
  178. 125?"7F58:F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C B0 0A A2 1A"
  179. 126?"7F69:A0 7F 20 43 10 20 49 10 AD 08 10 D0 26 A9 00 8D 00 7F"
  180. 127?"7F7B:8D 01 7F 8D 02 7F 8D 03 7F AE 07 10 A9 0B 8D 08 10"
  181. 128?"7F8C:9D 89 C0 9D 8A C0 A9 18 29 F0 0D 03 10 9D 8B C0"
  182. 129?"7F9C:60 AE 07 10 BD 89 C0 29 08 F0 4F BD 88 C0 AC 00 7F"
  183. 130?"7FAD:99 99 80 EE 00 7F 2C 0B 10 10 3E B9 99 80 29 7F"
  184. 131?"7FBD:C9 11 D0 26 AD 0B 10 29 BF 8D 0B 10 CE 00 7F AC 03 7F"
  185. 132?"7FCF:CC 02 7F F0 22 BD 89 C0 29 10 F0 F9 B9 99 81 9D 88 C0"
  186. 133?"7FE1:EE 03 7F 4C CC 7F C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10"
  187. 134?"7FF3:CE 00 7F AD 00 7F CD 01 7F 60 AE 01 7F BD 99 80"
  188. 135?"8003:EE 01 7F 60 48 AE 07 10 BD 89 C0 29 10 F0 1B 2C 0B 10"
  189. 136?"8015:10 0F 50 0D AC 02 7F 68 99 99 81 EE 02 7F 4C A0 7F"
  190. 137?"8026:68 9D 88 C0 4C A0 7F 20 A0 7F 4C 0B 80 A9 00 8D 08 10"
  191. 138?"8038:AE 07 10 9D 89 C0 9D 8A C0 60 F0 12 C9 0C F0 2E"
  192. 139?"8048:C9 0B F0 1B C9 91 F0 07 C9 93 F0 03 A9 00 60 AE 0B 10"
  193. 140?"805A:10 F8 29 7F 20 4F 10 20 07 80 A9 01 60 AE 07 10"
  194. 141?"806A:BD 8B C0 29 F0 0D 03 10 9D 8B C0 60 AC 07 10 B9 8A C0"
  195. 142?"807C:48 09 0C 99 8A C0 A9 E9 8D 04 7F AD 0E 10 20 40 10"
  196. 143?"808D:CE 04 7F D0 F5 68 99 8A C0 A9 01 60"
  197. RUN
  198. DEL 100,7999
  199. 98C$=C3$
  200. 103?"REM1ST LINE OF ";V$;C3$;"--KEEP REM LINES"
  201. 114?"CLOSE"
  202. 116?"CALL -151"
  203. 117?"1005:07 7F"
  204. 118?"100C:F9 83"
  205. 119?"1020:4C 9E 7F 4C A4 81 4C 05 81 4C 65 81 4C 6F 81 4C 9B 81"
  206. 120?"7F00:00 00 00 00 00 00 00 C8 C1 D9 C5 D3 A0 CD C9 C3"
  207. 121?"7F10:D2 CF A0 CD CF C4 C5 CD A0 D6 B1 AE B8 00 C3 CF CD"
  208. 122?"7F21:A0 D2 CF D5 D4 C9 CE C5 D3 A0 C1 D3 CD A0 D4 CF CF A0"
  209. 123?"7F33:CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 CE D5 CD"
  210. 124?"7F44:C2 C5 D2 A0 D4 CF A0 C4 C9 C1 CC BA 00 C1 D7 C1"
  211. 125?"7F54:C9 D4 C9 CE C7 A0 C3 C1 D2 D2 C9 C5 D2 AE AE AE C1 CE"
  212. 126?"7F66:D9 A0 CB C5 D9 A0 C1 C2 CF D2 D4 D3 00 C3 CF CE"
  213. 127?"7F76:CE C5 C3 D4 C5 C4 AE 00 D4 C8 C5 D2 C5 A0 D7 C9 CC"
  214. 128?"7F87:CC A0 C2 C5 A0 C1 A0 B3 B5 A0 D3 C5 C3 A0 C4 C5 CC C1"
  215. 129?"7F99:D9 00 A9 01 60 A9 7F CD 0A 10 F0 04 90 0B B0 13"
  216. 130?"7FA9:A9 00 CD 09 10 F0 0C B0 0A A2 1E A0 7F 20 43 10"
  217. 131?"7FB9:20 49 10 AE 07 10 BD 87 C0 BD 86 C0 29 04 F0 D2"
  218. 132?"7FC9:8A 4A 4A 4A 4A 8D 06 7F A2 7E A0 7F 20 43 10 20 49 10"
  219. 133?"7FDB:A5 36 48 A5 37 48 AD 06 7F 20 95 FE A9 91 20 ED FD"
  220. 134?"7FEC:A9 8D 20 ED FD A9 9A 20 ED FD A9 14 8D 01 7F A9 7D"
  221. 135?"7FFD:8D 00 7F AD 0E 10 20 40 10 CE 00 7F D0 F5 CE 01 7F"
  222. 136?"800E:D0 EB 68 85 37 68 85 36 A9 8D AE 07 10 9D 85 C0"
  223. 137?"801E:A9 03 9D 87 C0 A9 11 9D 87 C0 A9 14 8D 01 7F A9 7D"
  224. 138?"802F:8D 00 7F AD 0E 10 20 40 10 CE 00 7F D0 F5 CE 01 7F"
  225. 139?"8040:D0 EB A2 41 A0 7F 20 43 10 20 0C FD 20 ED FD 29 7F"
  226. 140?"8051:C9 30 30 5F C9 3A 10 5B 29 0F D0 02 A9 0A 8D 01 7F"
  227. 141?"8062:A9 0D AE 07 10 9D 85 C0 A9 3D 8D 00 7F AD 0E 10"
  228. 142?"8072:20 40 10 CE 00 7F D0 F5 A9 8D AE 07 10 9D 85 C0"
  229. 143?"8082:A9 27 8D 00 7F AD 0E 10 20 40 10 CE 00 7F D0 F5"
  230. 144?"8092:CE 01 7F D0 CB A9 06 8D 01 7F A9 64 8D 00 7F AD 0E 10"
  231. 145?"80A4:20 40 10 CE 00 7F D0 F5 CE 01 7F D0 EB 4C 49 80"
  232. 146?"80B4:C9 0D D0 91 20 49 10 A2 51 A0 7F 20 43 10 AE 07 10"
  233. 147?"80C5:2C 00 C0 10 0E 20 0C FD A9 00 AE 07 10 9D 85 C0"
  234. 148?"80D5:A9 00 60 BD 87 C0 BD 86 C0 29 04 D0 E3 A9 8F 9D 85 C0"
  235. 149?"80E7:20 49 10 A2 73 A0 7F 20 43 10 20 49 10 A9 00 8D 02 7F"
  236. 150?"80F9:8D 03 7F 8D 04 7F 8D 05 7F A9 01 60 AE 07 10 BD 86 C0"
  237. 151?"810B:29 01 F0 4F BD 87 C0 AC 02 7F 99 F9 81 EE 02 7F"
  238. 152?"811B:2C 0B 10 10 3E B9 F9 81 29 7F C9 11 D0 26 AD 0B 10"
  239. 153?"812C:29 BF 8D 0B 10 CE 02 7F AC 05 7F CC 04 7F F0 22"
  240. 154?"813C:BD 86 C0 29 02 F0 F9 B9 F9 82 9D 87 C0 EE 05 7F"
  241. 155?"814C:4C 34 81 C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10 CE 02 7F"
  242. 156?"815E:AD 02 7F CD 03 7F 60 AE 03 7F BD F9 81 EE 03 7F"
  243. 157?"816E:60 48 AE 07 10 BD 86 C0 29 02 F0 1B 2C 0B 10 10 0F"
  244. 158?"817F:50 0D AC 04 7F 68 99 F9 82 EE 04 7F 4C 08 81 68"
  245. 159?"818F:9D 87 C0 4C 08 81 20 08 81 4C 73 81 A9 00 AE 07 10"
  246. 160?"81A0:9D 85 C0 60 F0 23 C9 0C F0 28 C9 0B F0 0A C9 91"
  247. 161?"81B0:F0 07 C9 93 F0 03 A9 00 60 AE 0B 10 10 F8 29 7F"
  248. 162?"81C0:20 4F 10 20 6F 81 A9 01 60 AE 07 10 9D 85 C0 A9 01"
  249. 163?"81D1:60 AC 07 10 AE 06 7F BD F8 07 09 60 99 86 C0 A9 E9"
  250. 164?"81E2:8D 00 7F AD 0E 10 20 40 10 CE 00 7F D0 F5 BD F8 07"
  251. 165?"81F3:29 9F 99 86 C0 60"
  252. RUN
  253. DEL 100,7999
  254. 98C$=C4$
  255. 103?"REM1ST LINE OF ";V$;C4$;"--KEEP REM LINES"
  256. 114?"CLOSE"
  257. 116?"CALL -151"
  258. 117?"1005:08 7F"
  259. 118?"100C:0B 83"
  260. 119?"1020:4C 86 7F 4C BB 80 4C 28 80 4C 88 80 4C 92 80 4C BA 80"
  261. 120?"7F00:00 00 00 00 00 00 00 01 C1 D0 D0 CC C5 A0 C3 CF CD"
  262. 121?"7F11:CD A0 C3 C1 D2 C4 A0 D6 B1 AE B9 00 AA AA AA AA AA C5"
  263. 122?"7F23:D2 D2 CF D2 AA AA AA AA AA A0 C3 CF CD A0 D2 CF D5 D4"
  264. 123?"7F35:C9 CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF"
  265. 124?"7F47:A0 CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 C1 D7 C1"
  266. 125?"7F59:C9 D4 C9 CE C7 A0 C3 C1 D2 D2 C9 C5 D2 AE AE AE AE A8"
  267. 126?"7F6B:C1 CE D9 A0 CB C5 D9 A0 C1 C2 CF D2 D4 D3 A9 00"
  268. 127?"7F7B:C3 CF CE CE C5 C3 D4 C5 C4 AE 00 A9 7F CD 0A 10"
  269. 128?"7F8B:F0 04 90 0B B0 16 A9 00 CD 09 10 F0 0F B0 0D A2 1D"
  270. 129?"7F9C:A0 7F 20 43 10 20 49 10 4C D0 03 A9 08 8D FE 03"
  271. 130?"7FAC:A9 81 8D FF 03 AD 07 10 4A 4A 4A 4A 8D 05 7F AE 07 10"
  272. 131?"7FBE:A9 03 9D 8E C0 A9 15 9D 8E C0 AE 07 10 BD 8F C0"
  273. 132?"7FCE:BD 8E C0 29 04 D0 0B A9 15 8D 06 7F 9D 8E C0 A9 01"
  274. 133?"7FDF:60 A2 56 A0 7F 20 43 10 AE 07 10 AC 05 7F A9 15"
  275. 134?"7FEF:8D 06 7F 9D 8E C0 2C 00 C0 10 06 20 0C FD A9 00"
  276. 135?"7FFF:60 BD 8F C0 BD 8E C0 29 04 D0 EB 20 49 10 A2 7B"
  277. 136?"800F:A0 7F 20 43 10 20 49 10 A9 00 8D 01 7F 8D 02 7F"
  278. 137?"801F:8D 03 7F 8D 04 7F A9 01 60 AE 07 10 BD 8E C0 29 01"
  279. 138?"8030:F0 4F BD 8F C0 AC 01 7F 99 0B 81 EE 01 7F 2C 0B 10"
  280. 139?"8041:10 3E B9 0B 81 29 7F C9 11 D0 26 AD 0B 10 29 BF"
  281. 140?"8051:8D 0B 10 CE 01 7F AC 04 7F CC 03 7F F0 22 BD 8E C0"
  282. 141?"8062:29 10 F0 F9 B9 0B 82 9D 8F C0 EE 04 7F 4C 57 80"
  283. 142?"8072:C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10 CE 01 7F AD 01 7F"
  284. 143?"8084:CD 02 7F 60 AE 02 7F BD 0B 81 EE 02 7F 60 48 AE 07 10"
  285. 144?"8096:BD 8E C0 29 02 F0 17 2C 0B 10 10 0D 50 0B AC 03 7F"
  286. 145?"80A7:68 99 0B 82 EE 03 7F 60 68 9D 8F C0 60 20 2B 80"
  287. 146?"80B7:4C 96 80 60 F0 1E C9 0C F0 20 C9 0B F0 0A C9 91"
  288. 147?"80C7:F0 07 C9 93 F0 03 A9 00 60 29 7F 20 4F 10 20 92 80"
  289. 148?"80D8:A9 01 60 AE 07 10 A9 01 60 AC 07 10 AD 06 7F 09 60"
  290. 149?"80E9:99 8E C0 A9 E9 8D 07 7F AD 0E 10 20 40 10 CE 07 7F"
  291. 150?"80FA:D0 F5 AD 06 7F 29 9F AC 07 10 99 8E C0 60 A5 45"
  292. 151?"810A:40"
  293. RUN
  294. DEL 100,7999
  295. 98C$=C5$
  296. 103?"REM1ST LINE OF ";V$;C5$;"--KEEP REM LINES"
  297. 114?"CLOSE"
  298. 116?"CALL -151"
  299. 117?"1005:0A 7F"
  300. 118?"100C:D8 8B"
  301. 119?"1020:4C 1F 80 4C 66 81 4C 0B 81 4C 1C 81 4C 37 81 4C 48 81"
  302. 120?"7F00:00 00 00 00 00 00 00 00 00 00 C3 C3 D3 A0 B7 B7"
  303. 121?"7F10:B1 B0 A0 D6 B1 AE B1 B2 00 C3 CF CD A0 D2 CF D5 D4 C9"
  304. 122?"7F22:CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0"
  305. 123?"7F34:CC CF D7 00 C3 C3 D3 A0 B7 B7 B1 B0 A0 D5 CE C1"
  306. 124?"7F44:C2 CC C5 A0 D4 CF A0 D3 C5 D4 A0 C2 C1 D5 C4 00"
  307. 125?"7F54:3C AD AD A0 C9 D3 A0 D5 CE CB CE CF D7 CE A0 C3"
  308. 126?"7F64:CF CD A0 C3 C1 D2 C4 A0 C3 CF CD CD C1 CE C4 00"
  309. 127?"7F74:8A 48 AD 80 C0 10 49 29 01 D0 52 2C 0B 10 10 29"
  310. 128?"7F84:70 43 AD 07 7F F0 0D AD 06 7F D0 1D A9 13 8D 06 7F"
  311. 129?"7F95:4C A4 7F AD 06 7F F0 10 A9 00 8D 06 7F A9 11 20 4F 10"
  312. 130?"7FA7:8D 81 C0 4C 14 80 AD 02 7F CD 03 7F F0 14 AE 03 7F"
  313. 131?"7FB8:BD D8 8A 8D 81 C0 EE 03 7F 4C 14 80 68 AA 6C 04 7F"
  314. 132?"7FC9:A9 95 8D 80 C0 4C 14 80 AD 81 C0 AE 01 7F 9D D8 81"
  315. 133?"7FDA:2C 0B 10 10 23 29 7F C9 11 D0 0E A9 BF 2D 0B 10"
  316. 134?"7FEA:8D 0B 10 20 19 80 4C 14 80 C9 13 D0 0B A9 40 0D 0B 10"
  317. 135?"7FFC:8D 0B 10 4C 14 80 EE 01 7F D0 0D AE D9 7F E8 E0 8A"
  318. 136?"800D:D0 02 A2 81 8E D9 7F 68 AA A5 45 40 A9 B5 8D 80 C0"
  319. 137?"801E:60 78 AD 05 7F D0 28 AD FE 03 8D 04 7F AD FF 03"
  320. 138?"802E:8D 05 7F A9 7F CD 0A 10 F0 04 90 09 B0 11 A9 00"
  321. 139?"803E:CD 09 10 B0 0A A2 19 A0 7F 20 43 10 20 49 10 AD 08 10"
  322. 140?"8050:F0 03 4C 09 81 AD C0 FB C9 E0 F0 09 C9 00 D0 5B"
  323. 141?"8060:AD BF FB D0 56 AD 18 80 8D 14 80 A9 EA 8D C4 7F"
  324. 142?"8070:8D C5 7F A9 76 8D FE 03 A9 7F 8D FF 03 A2 00 2C 11 C0"
  325. 143?"8082:30 02 A2 08 2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0"
  326. 144?"8093:DA AD 16 C0 0A A0 01 B9 FE FF 8D 09 C0 99 FE FF"
  327. 145?"80A3:8D 08 C0 99 FE FF 88 10 EE 90 03 8D 09 C0 FA 3C 81 C0"
  328. 146?"80B5:3C 81 C0 4C C5 80 A9 74 8D FE 03 A9 7F 8D FF 03"
  329. 147?"80C5:A9 00 8D 00 7F 8D 01 7F 8D 02 7F 8D 03 7F A9 81"
  330. 148?"80D5:8D D9 7F 8D 22 81 AE 07 10 8E 08 10 18 A9 80 6D 07 10"
  331. 149?"80E7:8D 77 7F 8D 1C 80 8D CC 7F 18 A9 81 6D 07 10 8D BC 7F"
  332. 150?"80F9:8D D2 7F 8D A8 7F A9 03 9D 80 C0 A9 95 9D 80 C0"
  333. 151?"8109:58 60 78 AD 00 7F CD 01 7F D0 06 AD D9 7F CD 22 81"
  334. 152?"811A:58 60 78 AE 00 7F BD D8 81 EE 00 7F D0 0D AC 22 81"
  335. 153?"812B:C8 C0 8A D0 02 A0 81 8C 22 81 58 60 48 78 20 19 80"
  336. 154?"813C:68 AE 02 7F 9D D8 8A EE 02 7F 58 60 78 AD 05 7F"
  337. 155?"814C:F0 17 AD 04 7F 8D FE 03 AD 05 7F 8D FF 03 A9 00"
  338. 156?"815C:8D 05 7F AE 07 10 9D 80 C0 60 F0 1D C9 0C F0 45"
  339. 157?"816C:C9 0B F0 18 C9 91 F0 1B C9 93 F0 29 20 DA FD A2 54"
  340. 158?"817D:A0 7F 20 43 10 20 49 10 A9 00 60 A2 38 A0 7F 4C 7F 81"
  341. 159?"818F:78 20 19 80 A9 00 8D 07 7F 58 AD 06 7F D0 FB A9 01"
  342. 160?"81A0:60 78 20 19 80 A9 01 8D 07 7F 58 AD 06 7F F0 FB"
  343. 161?"81B0:60 78 AC 07 10 A9 60 99 80 C0 99 81 C0 58 A9 E9"
  344. 162?"81C0:8D 09 7F AD 0E 10 20 40 10 CE 09 7F D0 F5 A9 B5"
  345. 163?"81D0:78 99 80 C0 58 A9 01 60"
  346. RUN
  347. DEL 100,7999
  348. 98C$=C6$
  349. 103?"REM1ST LINE OF ";V$;C6$;"--KEEP REM LINES"
  350. 114?"CLOSE"
  351. 116?"CALL -151"
  352. 117?"1005:00 7F"
  353. 118?"100C:AB 81"
  354. 119?"1020:4C 10 80 4C 69 81 4C C5 80 4C 0F 81 4C 13 81 4C 3F 81"
  355. 120?"7F00:AF AF C7 D3 A0 D3 C5 D2 C9 C1 CC A0 D0 CF D2 D4 A0 D6"
  356. 121?"7F12:B1 AE B6 00 AA AA AA AA AA C5 D2 D2 CF D2 AA AA"
  357. 122?"7F22:AA AA AA A0 C3 CF CD A0 D2 CF D5 D4 C9 CE C5 D3 A0 C1"
  358. 123?"7F34:D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0 CC CF D7 A0 C9"
  359. 124?"7F46:CE A0 CD C5 CD CF D2 D9 00 BC AD A0 D3 D4 C1 D4 D5 D3"
  360. 125?"7F58:A0 C5 D2 D2 CF D2 A0 CF CE A0 C3 CF CD A0 C3 C1 CC CC"
  361. 126?"7F6A:A0 C6 D2 CF CD A0 AD A0 00 00 01 46 20 44 01 30 44"
  362. 127?"7F7B:01 30 50 01 42 45 01 43 44 01 4C 44 01 45 44 01 4D 44"
  363. 128?"7F8D:01 41 44 01 5A 00 01 54 01 53 01 51 01 5A 00 00"
  364. 129?"7F9D:03 00 00 00 00 00 00 00 E0 00 F0 18 20 41 F9 A2 4F"
  365. 130?"7FAE:A0 7F 20 43 10 68 AA 68 A8 48 8A 48 98 20 41 F9"
  366. 131?"7FBE:4C 49 10 60 78 A9 03 8D 9D 7F A9 00 8D 9E 7F 20 F5 7F"
  367. 132?"7FD0:AD A3 7F 29 7F 8D A3 7F AD A1 7F 09 04 29 DF 2C 0B 10"
  368. 133?"7FE2:10 04 09 20 29 FB 8D A1 7F A9 01 8D 9E 7F 20 F5 7F"
  369. 134?"7FF3:58 60 8B 7A A2 7F A9 9D 20 00 C0 AD A0 7F 0D 9F 7F"
  370. 135?"8004:F0 09 AD A0 7F AE 9F 7F 4C A9 7F 60 A9 7F CD 0A 10"
  371. 136?"8015:F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C B0 0A A2 16"
  372. 137?"8026:A0 7F 20 43 10 20 49 10 AD 08 10 D0 8E AD 07 10"
  373. 138?"8036:4A 4A 4A 4A 09 C0 8D 68 80 8D 74 80 8D 7A 80 8D 80 80"
  374. 139?"8048:8D 86 80 8D CF 80 8D E0 80 8D 3B 81 8D 29 81 8D FD 7F"
  375. 140?"805A:8D 5F 80 AD 12 C0 8D FC 7F 20 C2 7F AD 0D C0 8D 73 80"
  376. 141?"806C:AC 07 10 AE 74 80 20 00 C0 20 A5 7F AD 0E C0 8D DF 80"
  377. 142?"807E:AD 0F C0 8D 3A 81 AD 10 C0 8D CE 80 8D 28 81 A9 01"
  378. 143?"808F:20 33 81 AD 03 10 C9 09 90 0A 48 A9 31 20 33 81"
  379. 144?"809F:68 38 E9 0A 18 69 30 20 33 81 A9 42 20 33 81 9C 73 7F"
  380. 145?"80B1:AE 73 7F BD 74 7F F0 09 20 33 81 EE 73 7F 4C B1 80"
  381. 146?"80C2:A9 01 60 AE CF 80 AC 07 10 A9 01 20 00 C0 B0 06"
  382. 147?"80D2:20 A5 7F A9 00 60 AE E0 80 AC 07 10 20 00 C0 20 A5 7F"
  383. 148?"80E4:8D 9C 7F AC 0B 10 10 20 29 7F C9 11 D0 0B A9 BF"
  384. 149?"80F4:2D 0B 10 8D 0B 10 4C D5 80 C9 13 D0 0B A9 40 0D 0B 10"
  385. 150?"8106:8D 0B 10 4C D5 80 A9 01 60 AD 9C 7F 60 48 2C 0B 10"
  386. 151?"8117:50 06 20 C5 80 4C 14 81 AE 29 81 AC 07 10 A9 00"
  387. 152?"8127:20 00 C0 B0 06 20 A5 7F 4C 1F 81 68 AE 3B 81 AC 07 10"
  388. 153?"8139:20 00 C0 4C A5 7F A9 00 8D 08 10 A9 01 60 78 A9 03"
  389. 154?"814A:8D 9D 7F A9 0A 8D 9E 7F 20 F5 7F AD A1 7F 09 80"
  390. 155?"815A:8D A1 7F A9 0B 8D 9E 7F 20 F5 7F 58 A9 01 60 F0 DC"
  391. 156?"816B:C9 0C F0 22 C9 0B F0 16 C9 91 F0 07 C9 93 F0 03"
  392. 157?"817B:A9 00 60 29 7F 20 4F 10 20 13 81 A9 01 60 A9 00"
  393. 158?"818B:8D 08 10 A9 01 60 20 C2 7F 9C 73 7F AE 73 7F BD 93 7F"
  394. 159?"819D:F0 09 20 33 81 EE 73 7F 4C 97 81 A9 01 60"
  395. RUN
  396. DEL 100,7999
  397. 98C$=C7$
  398. 103?"REM1ST LINE OF ";V$;C7$;"--KEEP REM LINES"
  399. 114?"CLOSE"
  400. 116?"CALL -151"
  401. 117?"1005:05 7F"
  402. 118?"100C:3F 83"
  403. 119?"1020:4C 78 7F 4C 7F 80 4C E8 7F 4C 43 80 4C 4D 80 4C 79 80"
  404. 120?"7F00:00 00 00 00 00 CD CF D5 CE D4 C1 C9 CE A0 C8 C1 D2"
  405. 121?"7F11:C4 D7 C1 D2 C5 A0 C3 D0 D3 A0 D6 B1 AE B4 00 AA AA AA"
  406. 122?"7F23:AA AA C5 D2 D2 CF D2 AA AA AA AA AA A0 C3 CF CD A0 D2"
  407. 123?"7F35:CF D5 D4 C9 CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0"
  408. 124?"7F47:D4 CF CF A0 CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00"
  409. 125?"7F59:A9 27 20 68 7F AD FB C0 29 C1 C9 C1 D0 F7 60 48"
  410. 126?"7F69:A9 80 8D FE C0 68 8D FB C0 A9 00 8D FE C0 60 A9 7F"
  411. 127?"7F7A:CD 0A 10 F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C"
  412. 128?"7F8A:B0 0A A2 20 A0 7F 20 43 10 20 49 10 AD 08 10 D0 4C"
  413. 129?"7F9B:A9 00 8D 00 7F 8D 01 7F 8D 02 7F 8D 03 7F AD 07 10"
  414. 130?"7FAC:4A 4A 4A 4A 29 0F 09 C0 20 FC 80 A9 80 8D FE C0"
  415. 131?"7FBC:A9 4E 8D FA C0 AD 03 10 C9 0A 30 03 38 B0 01 18"
  416. 132?"7FCC:A9 35 29 F0 0D 03 10 E9 00 8D FA C0 A9 00 8D FE C0"
  417. 133?"7FDD:A9 27 20 68 7F A9 01 8D 08 10 60 AD FB C0 29 C2"
  418. 134?"7FED:C9 C2 D0 4B AD FA C0 AC 00 7F 99 3F 81 EE 00 7F"
  419. 135?"7FFD:2C 0B 10 10 3A B9 3F 81 29 7F C9 11 D0 22 AD 0B 10"
  420. 136?"800E:29 BF 8D 0B 10 CE 00 7F AC 03 7F CC 02 7F F0 1E"
  421. 137?"801E:20 59 7F B9 3F 82 8D FA C0 EE 03 7F 4C 16 80 C9 13"
  422. 138?"802F:D0 0B A9 40 0D 0B 10 8D 0B 10 CE 00 7F AD 00 7F"
  423. 139?"803F:CD 01 7F 60 AE 01 7F BD 3F 81 EE 01 7F 60 48 A9 27"
  424. 140?"8050:20 68 7F AD FB C0 29 C1 C9 C1 D0 17 2C 0B 10 10 0D"
  425. 141?"8061:50 0B AC 02 7F 68 99 3F 82 EE 02 7F 60 68 8D FA C0"
  426. 142?"8072:60 20 E8 7F 4C 4E 80 A9 00 8D 08 10 60 F0 12 C9 0C"
  427. 143?"8083:F0 4D C9 0B F0 1B C9 91 F0 07 C9 93 F0 03 A9 00"
  428. 144?"8093:60 AE 0B 10 10 F8 29 7F 20 4F 10 20 4D 80 A9 01"
  429. 145?"80A3:60 A9 80 8D FE C0 A9 4E 8D FA C0 AD 03 10 C9 0A"
  430. 146?"80B3:30 03 38 B0 01 18 A9 35 29 F0 0D 03 10 E9 00 8D FA C0"
  431. 147?"80C5:A9 00 8D FE C0 A9 27 20 68 7F A9 C1 60 A9 80 8D FE C0"
  432. 148?"80D7:AD FB C0 48 A9 08 8D FB C0 A9 E9 8D 04 7F AD 0E 10"
  433. 149?"80E8:20 40 10 CE 04 7F D0 F5 68 8D FB C0 A9 00 8D FE C0"
  434. 150?"80F9:A9 01 60 8D EA 7F 8D 60 7F 8D 6D 7F 8D 71 7F 8D 76 7F"
  435. 151?"810B:8D BB 7F 8D C0 7F 8D D7 7F 8D DC 7F 8D F3 7F 8D 26 80"
  436. 152?"811D:8D 55 80 8D 71 80 8D A8 80 8D AD 80 8D C4 80 8D C9 80"
  437. 153?"812F:8D D6 80 8D D9 80 8D DF 80 8D F3 80 8D F8 80 60"
  438. RUN
  439. DEL 100,7999
  440. 98C$=C8$
  441. 103?"REM1ST LINE OF ";V$;C8$;"--KEEP REM LINES"
  442. 114?"CLOSE"
  443. 116?"CALL -151"
  444. 117?"1005:18 7F"
  445. 118?"100C:FB 8B"
  446. 119?"1020:4C CF 7F 4C 06 83 4C 27 82 4C 44 82 4C 62 82 4C B8 82"
  447. 120?"7F00:89 10 03 D2 C1 D7 00 00 00 00 00 00 00 00 00 00"
  448. 121?"7F10:00 00 00 00 00 00 02 08 C3 C1 D4 A0 D6 B1 AE B2"
  449. 122?"7F20:00 C3 CF CD A0 D2 D4 CE A0 C1 D3 CD A0 D4 CF CF"
  450. 123?"7F30:A0 CC CF D7 8D 00 3C AD A0 C2 C1 C4 A0 C3 CF CD"
  451. 124?"7F40:A0 C3 CD C4 8D 00 C4 C9 C1 CC AF D8 BA 00 D7 C1 C9"
  452. 125?"7F51:D4 C9 CE C7 8D 00 C3 CF CE CE C5 C3 D4 87 8D 00"
  453. 126?"7F61:8D C8 D5 CE C7 A0 D5 D0 8D 00 68 AA 6C 0A 7F 8A"
  454. 127?"7F71:48 AD 8F C0 2C 16 7F F0 F1 2C 17 7F F0 EC 29 40"
  455. 128?"7F81:F0 04 A9 FF D0 03 AD 8B C0 AE 07 7F 9D FB 83 48"
  456. 129?"7F91:AD 0F 7F 8D 8D C0 68 2C 0B 10 10 1B 29 7F C9 11"
  457. 130?"7FA1:D0 07 A9 BF 2D 0B 10 B0 09 C9 13 D0 0A A9 40 0D 0B 10"
  458. 131?"7FB3:8D 0B 10 B0 12 EE 07 7F D0 0D AE 8F 7F E8 E0 8A"
  459. 132?"7FC3:D0 02 A2 83 8E 8F 7F 68 AA A5 45 40 78 AD 0B 7F"
  460. 133?"7FD3:D0 21 AD FE 03 8D 0A 7F AD FF 03 8D 0B 7F A9 7F"
  461. 134?"7FE3:CD 0A 10 90 07 D0 0E AD 09 10 F0 09 A2 21 20 1D 83"
  462. 135?"7FF4:A9 00 58 60 AD C0 FB F0 04 C9 E0 D0 5B AD CE 7F"
  463. 136?"8004:8D CA 7F A9 72 8D FE 03 A9 7F 8D FF 03 A2 00 BD 6D 7F"
  464. 137?"8016:9D 6B 7F E8 E0 03 D0 F5 A2 00 2C 11 C0 30 02 A2 08"
  465. 138?"8027:2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0 DA AD 16 C0"
  466. 139?"8038:0A A0 01 B9 FE FF 8D 09 C0 99 FE FF 8D 08 C0 99 FE FF"
  467. 140?"804A:88 10 EE 90 03 8D 09 C0 FA 3C 81 C0 3C 81 C0 4C 66 80"
  468. 141?"805C:A9 70 8D FE 03 A9 7F 8D FF 03 A9 00 8D 06 7F 8D 07 7F"
  469. 142?"806E:8D 08 7F 8D 09 7F A9 83 8D 8F 7F 8D 4D 82 AE 07 10"
  470. 143?"807F:8A 4A 4A 4A 4A 8D 10 7F 18 8A 69 8F 8D 73 7F 8D 6F 82"
  471. 144?"8091:8D F4 82 8A 69 8E 8D B4 82 8D 01 83 8A 69 8B 8D 88 7F"
  472. 145?"80A3:8A 69 8D 8D 95 7F 8D FD 81 8A 69 80 8D D8 81 8A"
  473. 146?"80B3:69 8D 8D DF 81 8D E6 81 8A 69 8C 8D 02 82 8D 82 81"
  474. 147?"80C4:A9 00 9D 82 C0 9D 80 C0 8D 15 7F A9 06 9D 83 C0"
  475. 148?"80D4:20 E9 83 A9 0C 9D 8C C0 A2 46 20 1D 83 A9 A0 A2 00"
  476. 149?"80E5:8E 11 7F 20 ED FD 20 46 10 09 80 AE 11 7F 9D 00 02"
  477. 150?"80F6:E8 C9 88 D0 07 CA F0 ED CA 4C E5 80 C9 8D F0 13"
  478. 151?"8106:C9 A0 B0 06 20 B8 82 A9 00 60 E0 50 D0 D1 CA A9 87"
  479. 152?"8117:D0 CC 20 49 10 AD 00 02 C9 F8 F0 04 C9 D8 D0 07"
  480. 153?"8127:A9 FF 8D 15 7F D0 51 AE 10 7F A9 88 9D 78 04 A9 81"
  481. 154?"8138:9D F8 04 8A 09 C0 8D B7 81 AE 07 10 A9 18 9D 8D C0"
  482. 155?"8149:A9 02 9D 82 C0 A9 A3 9D 81 C0 20 8A 81 A9 D4 20 95 81"
  483. 156?"815B:A9 BB 20 95 81 A2 00 BD 00 02 C9 8D F0 0E 8E 11 7F"
  484. 157?"816C:20 95 81 AE 11 7F E8 E0 50 D0 EB 20 8A 81 A2 4E"
  485. 158?"817C:20 1D 83 A9 05 8D 8C C0 A9 01 8D 13 7F 60 A9 00"
  486. 159?"818C:20 A8 FC 20 A8 FC 4C A8 FC 09 80 C9 AA D0 02 A9 BA"
  487. 160?"819D:C9 BB D0 02 A9 AA 8D 78 07 AE B7 81 8E F8 07 AC 07 10"
  488. 161?"81AF:8C F8 06 2C FF CF AD 00 FF C9 38 D0 06 AD 78 07"
  489. 162?"81BF:20 0A CC 2C FF CF 60 AD 13 7F 30 49 AD 15 7F D0 15"
  490. 163?"81D0:AD 03 10 C9 08 B0 07 AD 80 C0 29 20 90 0C AD 8D C0"
  491. 164?"81E1:29 04 B0 05 AD 8D C0 29 08 F0 29 AD 13 7F F0 23"
  492. 165?"81F1:A9 00 8D 13 7F 8D 12 7F AD 0F 7F 8D 8D C0 A9 06"
  493. 166?"8201:8D 8C C0 8E 11 7F 20 96 83 A2 57 20 1D 83 AE 11 7F"
  494. 167?"8212:A9 00 60 AD 13 7F D0 FA A9 19 20 A8 FC CE 12 7F"
  495. 168?"8222:D0 F0 4C B8 82 20 C6 81 F0 04 A9 00 F0 13 20 6D 82"
  496. 169?"8233:78 AD 06 7F CD 07 7F D0 06 AD 8F 7F CD 4D 82 58"
  497. 170?"8243:60 20 6D 82 78 AE 06 7F BD FB 83 EE 06 7F D0 0D"
  498. 171?"8253:AC 4D 82 C8 C0 8A D0 02 A0 83 8C 4D 82 58 60 78"
  499. 172?"8263:AE 08 7F 9D FB 8A EE 08 7F 58 78 AD 8F C0 29 10"
  500. 173?"8273:F0 41 2C 0B 10 10 28 70 3A AD 0D 7F F0 0C AD 0C 7F"
  501. 174?"8284:D0 1C A9 13 8D 0C 7F D0 0F AD 0C 7F F0 10 A9 00"
  502. 175?"8294:8D 0D 7F 8D 0C 7F A9 11 20 4F 10 4C B3 82 AD 08 7F"
  503. 176?"82A5:CD 09 7F F0 0C AE 09 7F BD FB 8A EE 09 7F 8D 8E C0"
  504. 177?"82B6:58 60 78 AD 0B 7F F0 2E AD 0A 7F 8D FE 03 AD 0B 7F"
  505. 178?"82C7:8D FF 03 A9 00 8D 0B 7F AE 07 10 9D 82 C0 A9 0C"
  506. 179?"82D7:9D 8C C0 A9 18 9D 8D C0 8D 0F 7F A9 A1 9D 81 C0"
  507. 180?"82E7:A2 61 20 1D 83 A9 01 8D 13 7F 60 AA AD 8F C0 29 10"
  508. 181?"82F8:F0 0B 8A 29 7F 20 4F 10 8D 8E C0 A9 01 60 F0 B0"
  509. 182?"8308:C9 0C F0 68 C9 0B F0 57 C9 91 F0 11 C9 93 F0 30"
  510. 183?"8318:20 DA FD A2 36 A0 7F 20 43 10 A9 00 60 78 20 F2 82"
  511. 184?"8329:F0 0C A9 00 8D 0D 7F 8D 0C 7F A9 01 58 60 A9 00"
  512. 185?"8339:8D 0D 7F 58 20 6D 82 AD 0C 7F D0 F8 A9 01 60 78"
  513. 186?"8349:20 F2 82 F0 0A A9 01 8D 0C 7F 8D 0D 7F 58 60 A9 01"
  514. 187?"835A:8D 0D 7F 58 20 6D 82 AD 0C 7F F0 F8 60 AD 0B 7F"
  515. 188?"836A:F0 05 78 20 96 83 58 A9 01 60 78 AC 07 10 A9 02"
  516. 189?"837A:99 8C C0 A9 E9 8D 0E 7F AD 0E 10 20 40 10 CE 0E 7F"
  517. 190?"838B:D0 F5 A9 06 99 8C C0 58 A9 01 60 A9 08 CD 03 10"
  518. 191?"839B:B0 03 8D 03 10 AE 07 10 A9 A1 9D 81 C0 AD 15 7F"
  519. 192?"83AB:D0 10 AD 03 10 C9 08 B0 0D A9 00 9D 8F C0 A9 11"
  520. 193?"83BB:D0 10 A9 05 D0 07 A9 21 9D 81 C0 A9 0A 9D 8F C0"
  521. 194?"83CB:A9 18 9D 8D C0 8D 0F 7F AD 03 10 0A 0A 0A 0A 6D 03 10"
  522. 195?"83DD:49 FF 69 89 9D 8B C0 A9 03 9D 8A C0 A9 65 AE 03 10"
  523. 196?"83EE:E0 04 D0 02 A9 2D AE 07 10 9D 89 C0 60"
  524. RUN
  525. DEL 100,7999
  526. 98C$=C9$
  527. 103?"REM1ST LINE OF ";V$;C9$;"--KEEP REM LINES"
  528. 114?"CLOSE"
  529. 116?"CALL -151"
  530. 117?"1005:00 7F"
  531. 118?"100C:21 81"
  532. 119?"1020:4C 48 7F 4C 7F 7F 4C A6 7F 4C CC 7F 4C E4 7F 4C FA 7F"
  533. 120?"7F00:C1 C3 C5 A0 AE B2 B1 00 8D D9 CF D5 A0 CD D5 D3 D4 A0"
  534. 121?"7F12:C3 CF CE CE C5 C3 D4 A0 D4 CF A0 C9 CE C9 D4 C9 C1 CC"
  535. 122?"7F24:C9 DA C5 8D 87 C3 CF CD CD A0 C3 C1 D2 C4 A0 C2 C5"
  536. 123?"7F35:C6 CF D2 C5 A0 D9 CF D5 A0 D3 C5 D4 A0 C2 C1 D5 C4"
  537. 124?"7F46:8D 00 2C FF CF 20 1A 80 AD 07 10 6A 6A 6A 6A 29 0F"
  538. 125?"7F57:09 C0 8D 19 80 8D 11 80 8D 15 80 29 0F AA A9 02"
  539. 126?"7F67:9D 78 07 8D 1D 80 8D 1E 80 60 A9 15 20 00 C3 20 58 FC"
  540. 127?"7F79:20 13 80 A9 01 60 AA 29 80 D0 18 8A C9 0B D0 1A"
  541. 128?"7F89:AD 15 80 29 C0 C9 C0 F0 DF A2 08 A0 7F 20 43 10"
  542. 129?"7F99:A9 00 60 8A 20 E4 7F A9 01 60 A9 00 60 2C FF CF"
  543. 130?"7FA9:20 17 80 AD 01 CE 29 02 F0 0C AC 1D 80 AD 00 CE"
  544. 131?"7FB9:99 21 80 EE 1D 80 AD 1D 80 CD 1E 80 8D FF CF 20 1A 80"
  545. 132?"7FCB:60 20 A6 7F AC 1E 80 B9 21 80 09 80 C9 87 D0 05"
  546. 133?"7FDB:20 FB 7F A9 02 EE 1E 80 60 8D 1F 80 20 A6 7F AD 1F 80"
  547. 134?"7FED:20 0F 80 20 A6 7F 8D FF CF 20 1A 80 60 60 A2 64"
  548. 135?"7FFD:A0 55 2C 30 C0 88 D0 FA 20 A6 7F CA D0 F2 20 A6 7F"
  549. 136?"800E:60 4C 2C C2 60 4C 32 00 60 4C 4B C2 4C AF C3 00"
  550. 137?"801E:00 00 08"
  551. 138?"8121:00"
  552. RUN
  553. DEL 100,8084
  554. 98C$=CF$
  555. 103?"REM1ST LINE OF ";V$;CF$;"--KEEP REM LINES"
  556. 114?"CLOSE"
  557. 115?"DEL 120,800"
  558. 160?"160D$=CHR$(4):G$=CHR$(7):GOSUB710:GOSUB720"
  559. 170?"170?:INPUT";Q$;"SWAP BS & DEL KEYS ? (Y/N)";Q$;";R$"
  560. 180?"180GOSUB660:IFWGOTO170"
  561. 190?"190IFRTHENGOSUB730:?";Q$;"SET SWAP ON";Q$;":GOSUB720"
  562. 200?"200?:INPUT";Q$;"FLOW CONTROL ? (Y/N)";Q$;";R$"
  563. 210?"210GOSUB660:IFWGOTO200"
  564. 220?"220IFRTHENGOSUB730:?";Q$;"SET FLOW XON";Q$;":GOSUB720"
  565. 230?"230A$(1)=";Q$;"VT52";Q$;":A$(2)=";Q$;"VT100";Q$
  566. 240?"240A$(3)=";Q$;"NONE";Q$;":A$(4)=";Q$;"MONITOR";Q$
  567. 250?"250?:?:?";Q$;"TYPE OF TERMINAL EMULATION";Q$
  568. 260?"260?";Q$;"1 ";Q$;";A$(1)"
  569. 270?"270?";Q$;"2 ";Q$;";A$(2)"
  570. 280?"280?";Q$;"3 ";Q$;";A$(3)"
  571. 290?"290?";Q$;"4 ";Q$;";A$(4)";":?"
  572. 300?"300GOSUB690:GOSUB730:?";Q$;"SET TERMINAL ";Q$;";A$(S):GOSUB720"
  573. 340?"340A$(4)=";Q$;"TEXT";Q$;":A$(3)=";Q$;"INTEGER";Q$
  574. 341?"341A$(1)=";Q$;"APPLESOFT";Q$;":A$(2)=";Q$;"BINARY";Q$
  575. 342?"342?:?:?";Q$;"TYPE OF FILE TRANSFER";Q$
  576. 343?"343?";Q$;"1 ";Q$;";A$(1)"
  577. 344?"344?";Q$;"2 ";Q$;";A$(2)"
  578. 345?"345?";Q$;"3 ";Q$;";A$(3)"
  579. 346?"346?";Q$;"4 ";Q$;";A$(4)";":?"
  580. 348?"348GOSUB690:GOSUB730:?";Q$;"SET FILE-TYPE ";Q$;";A$(S):GOSUB720"
  581. 360?"360IFPEEK(64435)=6THENR=1:GOSUB750:GOTO400:REMIIE/C"
  582. 370?"370?:INPUT";Q$;"KEYBOARD LOWER CASE ? (Y/N)";Q$;";R$"
  583. 376?"376GOSUB660:IFWGOTO370"
  584. 380?"380GOSUB750"
  585. 390?"390?:INPUT";Q$;"DISPLAY LOWER CASE ? (Y/N)";Q$;";R$"
  586. 395?"395GOSUB660:IFWGOTO390"
  587. 400?"400IFRTHENGOSUB730:?";Q$;"SET DISPLAY 2E-40";Q$;":GOSUB720"
  588. 410?"410?:INPUT";Q$;"80 COLUMN DISPLAY ? (Y/N)";Q$;";R$"
  589. 415?"415GOSUB660:IFWGOTO410"
  590. 420?"420IFR=0GOTO460"
  591. 430?"430D3=3:?:INPUT";Q$;"IN SLOT 3 ? (Y/N)";Q$;";R$"
  592. 435?"435GOSUB660:IFWGOTO430"
  593. 440?"440IFRGOTO455"
  594. 450?"450GOSUB690:D3=S"
  595. 455?"455GOSUB730:?";Q$;"SET DISPLAY 80-COL ";Q$;";D3:GOSUB720"
  596. 460?"460?:INPUT";Q$;"MODEM IN SLOT 2? (Y/N)";Q$;";R$:GOSUB660:IFWGOTO460"
  597. 470?"470IFRTHENM=2:GOTO485"
  598. 480?"480GOSUB690:M=S"
  599. 485?"485GOSUB730:?";Q$;"SET SLOT ";Q$;";M:GOSUB720"
  600. 486?"486?:INPUT";Q$;"PRINTER IN SLOT 1? (Y/N)";Q$;";R$:GOSUB660:IFWGOTO486"
  601. 487?"487IFRTHENM=1:GOTO489"
  602. 488?"488GOSUB690:M=S"
  603. 489?"489GOSUB730:?";Q$;"SET PRINTER SLOT ";Q$;";M:GOSUB720"
  604. 490?"490A$(1)=";Q$;"300";Q$;":A$(2)=";Q$;"600";Q$
  605. 491?"491A$(3)=";Q$;"1200";Q$;":A$(4)=";Q$;"2400";Q$
  606. 492?"492A$(5)=";Q$;"4800";Q$;":A$(6)=";Q$;"9600";Q$
  607. 493?"493A$(7)=";Q$;"19200";Q$
  608. 494?"494?:?";Q$;" IS MODEM BAUD:";Q$;":?";Q$;"1 ";Q$;";A$(1)"
  609. 495?"495?";Q$;"2 ";Q$;";A$(2)"
  610. 496?"496?";Q$;"3 ";Q$;";A$(3)"
  611. 497?"497?";Q$;"4 ";Q$;";A$(4)"
  612. 498?"498?";Q$;"5 ";Q$;";A$(5)"
  613. 499?"499?";Q$;"6 ";Q$;";A$(6)"
  614. 500?"500?";Q$;"7 ";Q$;";A$(7)";":GOSUB690"
  615. 510?"510GOSUB730:?";Q$;"SET BAUD ";Q$;";A$(S):GOSUB720"
  616. 520?"520?:INPUT";Q$;"CHANGE SOMETHING ? (Y/N)";Q$;";R$"
  617. 525?"525GOSUB660:IFWGOTO520"
  618. 530?"530IFRGOTO160"
  619. 540?"540POKE814,0"
  620. 600?"600POKE216,0"
  621. 640?"640?";Q$;"START KERMIT WITH 'BRUN ";KR$"'";Q$
  622. 645?"645?";Q$;"THEN TYPE 'HELP'";Q$
  623. 651?"651END"
  624. 660?"660IFR$=";Q$;"Y";Q$;"ORR$=";Q$;"Y";Q$;"THENR=1:W=0:RETURN"
  625. 670?"670IFR$=";Q$;"N";Q$;"ORR$=";Q$;"N";Q$;"THENR=0:W=0:RETURN"
  626. 680?"680W=1:RETURN"
  627. 690?"690?:INPUT";Q$;"WHICH ?(1,2,3 ...)";Q$;";S:IFS<1ORS>10GOTO690"
  628. 700?"700RETURN"
  629. 710?"710?D$;";Q$;"OPEN KERMIT.INIT";Q$;":?D$;";Q$;"DELETE KERMIT.INIT";Q$
  630. 713?"713?D$;";Q$;"OPEN KERMIT.INIT";Q$;":?D$;";Q$;"WRITE KERMIT.INIT";Q$
  631. 716?"716RETURN"
  632. 720?"720?D$;";Q$;"CLOSE KERMIT.INIT";Q$;":RETURN"
  633. 730?"730?D$;";Q$;"APPEND KERMIT.INIT";Q$;":?D$;";Q$;"WRITE KERMIT.INIT";Q$
  634. 740?"740RETURN"
  635. 750?"750IFRTHENGOSUB730:?";Q$;"SET KEYBOARD 2E";Q$;":GOSUB720"
  636. 760?"760RETURN"
  637. 770?"RUN"
  638. RUN
  639. DEL 100,8085
  640. 98C$=CH$:V$=H$
  641. 116?"    [USE <CNTL-S> TO PAUSE]"
  642. 117?"?         GIVE OPTIONS AT ANY POINT"
  643. 118?""
  644. 119?"SET ?     GIVE 'SET' OPTIONS"
  645. 120?""
  646. 121?"SHOW ALL  SHOWS ALL PRESENTLY 'SET'"
  647. 122?""
  648. 123?"<ESC>     COMPLETES COMMAND"
  649. 124?""
  650. 125?"STATUS    LAST FILE TRANSFER INFO"
  651. 126?""
  652. 127?"-->      [II+ ONLY] SHIFT"
  653. 128?""
  654. 129?""
  655. 130?"---IN/OUT"
  656. 131?""
  657. 132?"FROM KERMIT-65> YOU CAN TALK TO OS & MODEM AS FOLLOWS:"
  658. 133?""
  659. 134?"EXIT       [TO DOS/PRODOS]"
  660. 135?""
  661. 136?"CALL4096   [TO KERMIT-65]"
  662. 137?""
  663. 138?"BRUN KERMIT386 [SOMETIMES-TO KERMIT-65]"
  664. 139?""
  665. 140?"CONNECT    [TO MODEM]"
  666. 141?""
  667. 142?"<CNTL-@>C  [TO KERMIT-65]"
  668. 143?""
  669. 144?""
  670. 145?"---UP/DOWN LOAD SEQUENCE"
  671. 146?""
  672. 147?"[PROMPT YOU SEE]"
  673. 148?""
  674. 149?".  [WHAT YOU TYPE]"
  675. 150?""
  676. 151?"KERMIT-65>"
  677. 152?""
  678. 153?"   CONNECT"
  679. 154?""
  680. 155?"NO PROMPT"
  681. 156?""
  682. 157?"   ATD555-1234 [HAYES DIAL]"
  683. 158?""
  684. 159?"%     [MAINFRAME PROMPT-USE LOWER CASE]"
  685. 160?""
  686. 161?"   LOGIN"
  687. 162?""
  688. 163?"   PASSWORD"
  689. 164?""
  690. 165?"   KERMIT R [HOST DEPENDENT]"
  691. 166?""
  692. 167?"   <CNTL-@>C"
  693. 168?""
  694. 169?"KERMIT-65>"
  695. 170?""
  696. 171?"   SEND FOO [UPLOAD FILE NAMED 'FOO']"
  697. 172?""
  698. 173?"KERMIT-65>"
  699. 174?""
  700. 175?"   CATALOG"
  701. 176?""
  702. 177?"KERMIT-65>"
  703. 178?""
  704. 179?"   CONNECT"
  705. 180?""
  706. 181?"%  KERMIT S FOO [HOST DEPENDENT]"
  707. 182?""
  708. 183?"   <CNTL-@>C"
  709. 184?""
  710. 185?"KERMIT-65>"
  711. 186?""
  712. 187?"   RECEIVE [DOWNLOADS FILE NAMED 'FOO']"
  713. 188?""
  714. 189?"   CONNECT"
  715. 190?""
  716. 191?"%  +++ATH0 [HAYES HANGUP]"
  717. 192?""
  718. 193?"   <CNTL-@>C"
  719. 194?""
  720. 195?"KERMIT-65>"
  721. 196?""
  722. 197?""
  723. 198?"---LOG TO DISK"
  724. 199?""
  725. 200?"KERMIT-65>"
  726. 201?""
  727. 202?"   LOG FOO [OPEN LOG: 'FOO']"
  728. 203?""
  729. 204?"   CONNECT"
  730. 205?""
  731. 206?"%  CAT FOO [MAINFRAME PRINTS 'FOO']"
  732. 207?""
  733. 208?"   <CNTL-@>C"
  734. 209?""
  735. 210?"KERMIT-65> [LOG ENDS]"
  736. 211?""
  737. 212?"   CONNECT"
  738. 213?""
  739. 214?"%  ..."
  740. RUN
  741. REMCFIG.INSTALL
  742. DEL 100,8499
  743. 98C$=C0$
  744. 103?"REM1ST LINE OF ";V$;C0$"--KEEP REM STATEMENTS"
  745. 120?"CLOSE"
  746. 121?"IF PEEK(-8192)=32 THEN ? ";Q$;"STOPPING";Q$
  747. 122?"IF PEEK(-8192)=32 THEN ? ";Q$;"APPLESOFT REQUIRED";Q$
  748. 123?"IF PEEK(-8192)=32 THEN POKE-21837,0"
  749. 124?"IF PEEK(-8192)=32 THEN CALL-23830"
  750. 125?"IF PEEK(-8192)=32 THEN END"
  751. 131?"POKE814,0:IFPEEK(4096)=76ANDPEEK(4160)=76THENPOKE814,234"
  752. 132?"IFPEEK(814)=0THEN?CHR$(7);";Q$;"STOPPING";Q$;":?"
  753. 133?"IFPEEK(814)=0THEN?";Q$;"BLOAD ";KR$;"'";Q$
  754. 134?"IFPEEK(814)=0THEN?";Q$;"BEFORE EXEC'ING PROGRAM";Q$;":POKE-21837,0:END"
  755. 141?"POKE814,0:IFPEEK(2053)=164ANDPEEK(2054)=51THENPOKE814,234:RUN"
  756. 142?"CALL-151"
  757. 143?"0300:48 98 48 8A 48 20 F7 AF A9 00 85 40 85 41 A0 C8 18 B9 F2 B3 F0 0E"
  758. 144?"0316:0A 90 FB 48 E6 40 D0 02 E6 41 68 18 90 F0 88 D0 E9 68 AA 68 A8 68"
  759. 145?"032C:60 00 00 00 68 A8 68 A6 DF 9A 48 98 48 60 00"
  760. 146?"3D0G:REMONERR FIX"
  761. 147?"CALL768:SC=PEEK(64)+PEEK(65)*256"
  762. 148?"IFSC<100THEN?CHR$(4);";Q$;"DELETE ";V$;"2";Q$
  763. 151?"FP"
  764. 152?"150LOMEM:33800
  765. 160?"160D$=CHR$(4):G$=CHR$(7):IFPEEK(48896)><76ANDPEEK(978)=157GOTO200"
  766. 170?"170?D$;";Q$;"OPEN T";Q$;":?D$;";Q$;"WRITE T";Q$
  767. 180?"180?";Q$;"END";Q$;":?D$;";Q$;"CLOSE";Q$;":?G$;";Q$;"GET DOS3.3";Q$;":?"
  768. 190?"190?D$;";Q$;"EXEC T";Q$;":END"
  769. 200?"200POKE216,0:POKE-21837,0:?D$;";Q$;"CLOSE";Q$
  770. 210?"210IFPEEK(814)=234THENPOKE814,0:GOTO570"
  771. 220?"220?G$"
  772. 235?"235?";Q$;"1 SUPER SERIAL OR //C SERIAL PORT";Q$
  773. 240?"240?";Q$;"2 MICROTEK SV-622";Q$
  774. 250?"250?";Q$;"3 MICROMODEM II";Q$
  775. 251?"251?";Q$;"4 APPLE";Q$
  776. 252?"252?";Q$;"5 CCS 7710";Q$
  777. 253?"253?";Q$;"6 GS SERIAL PORT";Q$
  778. 254?"254?";Q$;"7 CPS";Q$
  779. 255?"255?";Q$;"8 APPLE CAT";Q$
  780. 256?"256?";Q$;"9 ACE DUAL";Q$
  781. 257?"257?";Q$;"[UNSURE, TRY 1]";Q$
  782. 260?"260S$=";Q$;C1$;Q$;":GOSUB690:IFS=2THENS$=";Q$;C2$;Q$
  783. 270?"270IFS=3THENS$=";Q$;C3$;Q$
  784. 273?"273IFS=4THENS$=";Q$;C4$;Q$
  785. 276?"276IFS=5THENS$=";Q$;C5$;Q$
  786. 277?"277IFS=6THENS$=";Q$;C6$;Q$
  787. 278?"278IFS=7THENS$=";Q$;C7$;Q$
  788. 279?"279IFS=8THENS$=";Q$;C8$;Q$
  789. 280?"280IFS=9THENS$=";Q$;C9$;Q$
  790. 281?"281XS$=";Q$;V$;Q$;"+S$"
  791. 290?"290ONERRGOTO310"
  792. 300?"300?D$;";Q$;"VERIFY";Q$;";XS$:GOTO330"
  793. 310?"310CALL816:?G$:?";Q$;"INSERT DISK WITH ";Q$;";XS$;";Q$
  794. 320?"320INPUT";Q$;"PRESS RETURN";Q$;";I$:RESUME"
  795. 330?"330POKE216,0:?D$;";Q$;"EXEC";Q$;";XS$:END"
  796. 570?"570ONERRGOTO590"
  797. 580?"580?D$;";Q$;"BSAVE";KR$;",A$1000,L$73FB";Q$;":GOTO710"
  798. 590?"590CALL816:?G$:INPUT";Q$;"DISK FULL--FIX, PRESS RETURN";Q$;";I$:RESUME"
  799. 690?"690?:INPUT";Q$;"WHICH ? (1,2,3 ... )";Q$;";S:IFS<1ORS>10GOTO690"
  800. 700?"700RETURN"
  801. 710?"710?D$;";Q$;"EXEC";V$;CF$;Q$
  802. 1000?"RUN"
  803. 1010?CL$
  804. 1020END
  805. RUN
  806. CLOSE
  807. FP
  808. EXEC APP387.2,R25
  809. END
  810. REMEND PART 1 OF 2,SAVE TO APPLE DISK NOW AS:APP387.1
  811.